Option Explicit
Sub J_Sample006()
    Dim myFilename As String
    myFilename = Application.GetOpenFilename
    If myFilename = "False" Then
        MsgBox "wg"
    Else
        MsgBox myFilename
    End If
End Sub
